home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd2.bin / sharewar / Slunec / app / 17 / _SETUP.1 / Odeslat zpravu autorovi.pw < prev    next >
Text File  |  2000-08-29  |  1KB  |  42 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {     Programmer's Wizard 2 Pascal Script               }
  5. {     (popis jazyka v souboru SCRIPT.DOC)               }
  6. {                                                       }
  7. {*******************************************************}
  8. uses ScriptUtils;
  9.  
  10. function GetVerStr: string;
  11. var
  12.   mMajor, mMinor, mRel: Integer;
  13. Begin
  14.   GetVersionEx(mMajor, mMinor, mRel);
  15.   result := 'v' + IntToStr(mMajor) + '.' + IntToStr(mMinor) + '.' +
  16.     IntToStr(mRel);
  17. end;
  18.  
  19. function GetValidVerStr: string;
  20. Begin
  21.   result := 'v2.0.1'; //pozadovana verze PW
  22. end;
  23.  
  24. var
  25.   ToList, CcList, AttList: Array of string;
  26. Begin
  27.   if GetValidVerStr <> GetVerStr then //nespravna verze?
  28.     ShowMessage('Upozorn∞nφ: tento skript byl napsßn pro Programmers Wizard ' +
  29.       GetValidVerStr + '. Momentßln∞ spuÜt∞nß verze: ' + GetVerStr);
  30.   
  31.   //vyplnime zakladni info
  32.   SetArrayLength(ToList, 1);
  33.   ToList[0] := 'petr.esner@atlas.cz';
  34.   SetArrayLength(CcList, 1);
  35.   CcList[0] := 'pwiz@volny.cz';
  36.  
  37.   //odeslat, neprovadime test navratove hodnoty, protoze v pripade
  38.   //neuspechu upozorni uzivatele sam dialog 'Odeslat postu'
  39.   SendMailEx(ToList, CcList, AttList, 'Programmers Wizard 2', '');
  40. end.
  41.  
  42.